home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / simula / books / books.lha / kirkerud / fibo1.sim < prev    next >
Text File  |  1993-08-16  |  445b  |  22 lines
  1. begin
  2.  
  3. ! Proposed solution to exercise 3.8 (first program);
  4.  
  5.   integer n, i, prev_fib, fib_i, next_fib;
  6.  
  7.   outtext("Type an integer> "); breakoutimage;
  8.   inimage; n := inint;
  9.  
  10.   prev_fib := 1; fib_i := 1;
  11.   for i := 3 step 1 until n do
  12.     begin 
  13.       next_fib := prev_fib + fib_i; 
  14.       prev_fib := fib_i;
  15.       fib_i    := next_fib;
  16.     end;
  17.  
  18.   outtext("Fibonacci number "); outint(n, 0); outtext(" is ");
  19.   outint(fib_i, 0); outimage;
  20.  
  21. end
  22.